57700		SUBROUTINE FORMAT(NAME)
57750	C  SO WE CAN TYPE 'SA NAME' OR 'SAVE    NAME', ETC.
57800		COMMON /ALF/INP(72),ML 
57900		DIMENSION DMY(50),IFMT(2)
58000		EQUIVALENCE (INP(20),DMY)
58100		DATA IFMT(2)/' ,A5)'/
58200	
58300		DO 1 K=2,72
58400		IF(INP(K).NE.' ')GO TO 1
58500		DO 2 L=K+1,72
58600		IF(INP(L).EQ.' ')GO TO 2
58700	C NOW WE START NAME
58800		L=L-1
58900	5	IFMT(1)='( 0A1'+L*32768
59000	C  32768 IS MAGIC NUM TO CHANGE '0' TO RIGHT NUM.
59100		REREAD IFMT,(DMY(K),K=1,L),NAME
59200		RETURN
59300	2	CONTINUE
59400		NAME=' '
59500		RETURN
59600	1	CONTINUE
59700		END